home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FLASHCOM.DSK / AUTO BREAKOUT.int < prev    next >
Text File  |  2014-09-09  |  2KB  |  43 lines
  1. 5 TEXT :CALL -936
  2. 10 PLY=1:PLAY=0:DIM A$(15),B$(10),QWE(2),MSG$(200):GR :GOSUB 5000
  3. 12 A$="MIKE":A=2:B=6:C=15:D=14:E=11
  4. 30  POKE 34,20:COLOR= A:FOR I=0 TO 39:VLIN 0,39 AT I:NEXT I:FOR I=20 TO 34 STEP 2:TAB I+1:PRINT I/2-9;:COLOR= B:VLIN 0,39 AT I:COLOR= C:FOR J=I MOD 4 TO 39 STEP 4
  5. 35 VLIN J,J+1 AT I:NEXT J,I:TAB 5:PRINT "SCORE=  0":PRINT :PRINT : POKE 34,21:S=0:P=S:L=S:X=19:Y=19:L=6
  6. 40 COLOR= A:PLOT X,Y/3:X=19:Y= RND (120):V=-1:W= RND (5)-2:PRINT 
  7. 43 K=20:M=1:N=0:TAB 15:PRINT "AUTO BREAKOUT":TAB 8:PRINT MSG$;:GOTO 50
  8. 45 IF L=1 THEN PRINT "LAST BALL, ";A$:PRINT :FOR I=1 TO 100:GOSUB 200:NEXT I:M=1:N=0
  9. 50 J=Y+W:IF J>=0 AND J<120 THEN 60:W=-W:J=Y:FOR I=1 TO 6:K= PEEK (-16336):NEXT I
  10. 55 Q=K
  11. 60 I=X+V:IF I<0 THEN 400:GOSUB 200:COLOR= A:K=J/3:IF I>39 THEN 70:IF  SCRN(I,K)=A THEN 90
  12. 63 IF I>18 THEN 120:N=N+1:V=2:W=(K-P)*2-5:M=1
  13. 65 Z= PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336):GOTO 90
  14. 70 FOR I=1 TO 6:M= PEEK (-16336):NEXT I:I=X:M=0
  15. 80 V=-V
  16. 90 PLOT X,Y/3:COLOR= E:PLOT I,K:X=I:Y=J:GOTO 50
  17. 120 IF M THEN V=ABS (V):VLIN K/2*2,K/2*2+1 AT I:S=S+I/2-9:VTAB 21:TAB 13:PRINT S
  18. 123 Q= PEEK (-16336)- PEEK (-16336)+ PEEK (-16366)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)+ PEEK (-16336)- PEEK (-16336)
  19. 124 IF S<720 THEN 80
  20. 130 GOTO 30
  21. 200 Q=(Y-5)/3+ RND (3)*SGN (W)-1
  22. 203 Q1=0
  23. 205 IF Q<0 THEN Q=0:IF Q>34 THEN Q=34:COLOR= D:VLIN Q,Q+5 AT Q1:COLOR= A:IF P>Q THEN 210:IF Q THEN VLIN 0,Q-1 AT Q1:P=Q:RETURN 
  24. 210 IF P=Q THEN RETURN :IF Q#34 THEN VLIN Q+6,39 AT Q1:P=Q:RETURN 
  25. 400 FOR I=1 TO 80:Q= PEEK (-16336):NEXT I:GOTO 40
  26. 5000 QWE=1:QWE(0)=2:MSG$="SLOW INTEGER BASIC VERSION"
  27. 5010 IF QWE=2 THEN 5999
  28. 5020 MSG$="FLASH!  COMPILED  VERSION"
  29. 5999 RETURN 
  30. 10000 REM 
  31. 10010 REM AUTO BREAKOUT DEMO
  32. 10020 REM AN EXECUTIVE PACIFIER FOR
  33. 10030 REM PADDLE LESS APPLE OWNERS
  34. 10040 REM 
  35. 10050 REM BY BOB SANDER-CEDERLOF
  36. 10060 REM 
  37. 10070 REM THE SPEED UP IS ESTIMATED
  38. 10080 REM AT ABOUT 6 TIMES.
  39. 10090 REM 
  40. 10100 REM DUE TO THE RANDOM NATURE
  41. 10110 REM OF THIS GAME IT IS HARD TO
  42. 10120 REM PIN DOWN AN EXACT FIGURE.
  43.